' En este ejemplo se ve un ejemplo de como buscar por un campo indice y al mismo tiempo actualizar ese campo con un  ' nuevo valor.

' El método Index selecciona el indice a utilizar

' El método seek se posiciona en el primer registro de ese indice

Dim MIBD As Database

Dim miRS1 As Recordset

Set MIBD = DBEngine.Workspaces(0).Databases(0)

Set miRS1 = MIBD.OpenRecordset("Proveedores", DB_OPEN_TABLE)

miRS1.Index = "ID de proveedor"

miRS1.Seek "=" , 1

Do Until miRS1.NoMatch

miRS1.Edit

miRS1("ID de proveedor") = 2

miRS1.Update

miRS1.Seek "=" , 1

Loop

miRS1.Close